home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / fish / 001-100 / 001-025 / 013 / qbox.bas < prev    next >
BASIC Source File  |  1995-03-17  |  113b  |  6 lines
  1. 5     pattern
  2. 10    ask window x%, y%
  3. 15    pena rnd * 15
  4. 20    box(x%*rnd,y%*rnd;x%*rnd,y%*rnd),1
  5. 30    goto 10
  6.